Zadaniem projektowym jest przygotowanie wizualizacji utworzonej z
wykorzystaniem pakietu ggplot2, poprawiającej wizualizację
dostępną w prasie, telewizji lub internecie, opublikowaną w ciągu
ostatnich 2 tygodni.
Wizualizacja, którą poprawiam, została umieszczona w wydaniu “Wiadomości TVP” z dnia 26.10.2022r (minuta 17:13). Odcinek
Poniżej przedstawiam kod i wizualizację poprawionego wykresu:
df <- data.frame(x = c("Przed cyklem podwyżek", "Obecnie", "Przy dodatniej realnej stopie procentowej"),
y = c(1345, 2660, 5040))
df %>%
mutate(x = fct_inorder(x)) %>%
ggplot(aes(x = x, y = y)) +
geom_col(fill = "navyblue") +
labs(
title = "Miesięczna rata kredytu hipotecznego",
subtitle = "Kwota kredytu: 300 000 zł, okres spłaty: 25 lat, źródło: finanse.uokik.gov.pl",
x = "",
y = "Koszt raty w złotych"
) +
geom_text(
aes(label = paste(y, "zł")),
position = position_dodge(0.9),
vjust = -0.5,
size = 6
) +
scale_y_continuous(limits = c(0,6000), expand = c(0,0))
Uważam, że przedstawiony przeze mnie wykres jest lepszy od
oryginalnego, ponieważ:
- napisy na wykresie nie są elementami słupków (w oryginalnym wykresie
proporcje zgadzają się tylko wtedy, gdy patrzymy na jasnoniebieski kolor
kolumny, a nie na całą kolumnę),
- oryginalny wykres jest dosyć dziwną mieszanką wykresu 2D i 3D co może
zaburzać poprawny odbiór, ja przedstawiam wykres 2D,
- uważam, że brak pionowej osi układu współrzędnych na oryginalnym
wykresie może utrudniać odczytanie proporcji pomiędzy wysokościami
kolumn
Uważam ponadto, że przedstawiony wykres ma znikomą wartość
merytoryczną, ponieważ podpisy kolumn są zbyt niejasne: czym jest okres
przed cyklem podwyżek?; podejrzewam, że pierwsze dwie kolumny są
przedstawieniem faktów, a trzecia kolumna przedstawia szacunek; dla
jakiej dodatniej wartości realnej stopy procentowej został sporządzony
szacunek w trzeciej kolumnie?
Niestety nie mam wystarczającej wiedzy, żeby odpowiedzieć na te pytania,
więc pozostawiam podpisy kolumn niezmienione.